100 PRINT"[147]"CHR$(142)
110 POKE53280,6:POKE53281,0
120 PRINTTAB(9)"[152]PLANETARY INFORMATION":GOSUB530
130 PRINT"[147]"
140 PRINTTAB(17)"MENU"
150 PRINTTAB(10)"[155]PRESS A FOR MERCURY"
160 PRINTTAB(10)"PRESS B FOR VENUS"
170 PRINTTAB(10)"PRESS C FOR EARTH"
180 PRINTTAB(10)"PRESS D FOR MOON"
190 PRINTTAB(10)"PRESS E FOR MARS"
200 PRINTTAB(10)"PRESS F FOR JUPITER"
210 PRINTTAB(10)"PRESS G FOR SATURN"
220 PRINTTAB(10)"PRESS H FOR URANUS"
230 PRINTTAB(10)"PRESS I FOR NEPTUNE"
240 PRINTTAB(10)"PRESS J FOR PLUTO"
250 PRINTTAB(10)"PRESS K FOR THE SUN"
260 PRINTTAB(10)"PRESS L FOR FUN FACTS"
270 PRINTTAB(10)"PRESS M FOR WASTE MANAGEMENT"
290 PRINTTAB(10)"PRESS Q  TO QUIT ASTRO"
300 GETB$
310 IFB$<"A"ORB$>"Q"THEN300
320 IFB$>"M"ANDB$<"Q"THEN300
330 IFB$="A"THENF$="MERCURY":GOTO470
340 IFB$="B"THENF$="VENUS":GOTO470
350 IFB$="C"THENF$="EARTH":GOTO470
360 IFB$="D"THENF$="MOON":GOTO470
370 IFB$="E"THENF$="MARS":GOTO470
380 IFB$="F"THENF$="JUPITER":GOTO470
390 IFB$="G"THENF$="SATURN":GOTO470
400 IFB$="H"THENF$="URANUS":GOTO470
410 IFB$="I"THENF$="NEPTUNE":GOTO470
420 IFB$="J"THENF$="PLUTO":GOTO470
430 IFB$="K"THENF$="SUN":GOTO470
440 IFB$="L"THENF$="FACTS":GOTO470
450 IFB$="M"THENF$="BATHROOM":GOTO470
460 IFB$="Q"THEN 62999
470 PRINT"[144][147]LOAD"CHR$(34)F$CHR$(34)",8"
480 PRINT"RUN"
485 PRINTTAB(10)"WORKING REAL HARD...[144]"
490 POKE198,10
500 DATA 19,13,13
510 FORI=1TO3 :READX:POKE630+I,X:NEXT
520 NEW
530 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
540 POKE54277,8:POKE54278,255:POKE54276,23
550 F2=4
560 FORZ=1TO1:POKE54287,F2
570 FORF1=1TO200
580 POKE54273,F1:F2=F2+.01:NEXTF1:NEXTZ:POKE54278,15:RETURN
62999 PRINT"[147]";
63000 LOAD"HELLO CONNECT",8:END